(hexl-find-file): Bind `completion-ignored-extensions' to nil when

prompting for a filename.

diff --git a/lisp/hexl.el b/lisp/hexl.el
index 176def81026863fbd588560c528ae91cb567f27b..7c4a1610b9e8206a47e9f2776e623657ff2b050c 100644 (file)
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -1,6 +1,6 @@
 ;;; hexl.el --- edit a file in a hex dump format using the hexl filter
 
-;; Copyright (C) 1989, 1994, 1998, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1989, 1994, 1998, 2001, 2002 Free Software Foundation, Inc.
 
 ;; Author: Keith Gabryelski <ag@wheaties.ai.mit.edu>
 ;; Maintainer: FSF
@@ -277,7 +277,10 @@ You can use \\[hexl-find-file] to visit a file in Hexl mode.
 (defun hexl-find-file (filename)
   "Edit file FILENAME in hexl-mode.
 Switch to a buffer visiting file FILENAME, creating one in none exists."
-  (interactive "fFilename: ")
+  (interactive
+   (list
+    (let ((completion-ignored-extensions nil))
+      (read-file-name "Filename: " nil nil 'ret-must-match))))
   (find-file-literally filename)
   (if (not (eq major-mode 'hexl-mode))
       (hexl-mode)))